From: Stefan Monnier Date: Mon, 12 Aug 2002 22:53:39 +0000 (+0000) Subject: (comment-region): Force `lines' when `block' is set. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31184 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7512ff79b930666c4e70edcab765ba653f67e980;p=emacs.git (comment-region): Force `lines' when `block' is set. --- diff --git a/lisp/newcomment.el b/lisp/newcomment.el index b161b0c7779..8f7333a3e31 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -865,8 +865,8 @@ The strings used as comment starts are built from (>= (point) beg)) (progn (goto-char end) (end-of-line) (skip-syntax-backward " ") (<= (point) end)) - (or (not (string= "" comment-end)) block) - (progn (goto-char beg) (search-forward "\n" end t))))) + (or block (not (string= "" comment-end))) + (or block (progn (goto-char beg) (search-forward "\n" end t)))))) ;; don't add end-markers just because the user asked for `block' (unless (or lines (string= "" comment-end)) (setq block nil))